home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d8 / pc_relay.arc / PC-RELAY.SLT < prev   
Text File  |  1990-05-11  |  3KB  |  103 lines
  1. str user_name[] = "Dann Way";       // Put your PCBRelay Logon name here.
  2. main () {
  3.  
  4.  int stat;
  5.  int t1,
  6.      t2,
  7.      t3,
  8.      t4;
  9.  
  10.  int tmark;
  11.  
  12. dial ("20", 0);                      // Phone Directory Number for HUB
  13. clear_scr();
  14.  
  15. if (not _entry_pass)                 // Check for Correct Password
  16.   {
  17.    prints ("Sorry, I don't know the password for this BBS!");
  18.    return;
  19.   }
  20. if (waitfor("graphics", 30))         // When connected to PCBRelay HUB
  21.    {                                  // Use  the  Quick  Logon without 
  22.       delay(5);                       // Graphics and bypass the News       
  23.       cputs("N Q NS");                // screens  
  24.       cputs("^M");
  25.     }
  26. if (waitfor("first name?", 180))
  27.    {
  28.       cputs(user_name);
  29.       cputs("^M");
  30.    }
  31.    else
  32.    {
  33.       prints("Log-on failed !! ");
  34.       return;
  35.    }
  36. if (waitfor("Password", 20))
  37.    {
  38.       cputs(_entry_pass);
  39.       cputs("^M");
  40.    }
  41.    else
  42.    {
  43.       prints("Log-on failed !! ");
  44.       return;
  45.    }
  46.   t1 = track("Press (Enter) to", 1);
  47.   t2 = track("Scan Message Base", 1);
  48.   t3 = track("More: (Y), (N), (NS)?", 1);
  49.   t4 = track("Board Command?", 1);
  50.  
  51. tmark = timer_start(1800);           // Wait up to 3 minutes
  52.  
  53.    while (not time_up(tmark))
  54.    {
  55.       terminal();                     // Process any characters and keys
  56.  
  57.       stat = track_hit(0);            // Determine which track (if any) 
  58.                                       // was hit
  59.    if (stat == t1)
  60.     {
  61.      delay(1);
  62.      cputs("^M");
  63.     }
  64.      else if (stat == t2)
  65.       {
  66.        delay(5);
  67.        cputs("N^M");
  68.       }
  69.      else if (stat == t3)
  70.       {
  71.        delay(5);
  72.        cputs("Y^M");
  73.       }
  74.      else if (stat == t4)
  75.       {
  76.        delay(5);
  77.        cputs("Open 10^M");            // The number of the HUB PCBRelay Door
  78.        break;
  79.       }
  80.    }
  81.  
  82.   if (time_up(1))
  83.       prints("Log-on failed !! ");
  84.   timer_free(tmark);                  // Free timer channel
  85.   track_free(0);                      // and all track channels
  86.  
  87. delay(10);
  88.  
  89. send('Z', "HUBNOHIO.RLY");               // Send Your NETID PCBRelay Messages
  90.                                       // Make sure that you change NETID.RLY
  91. delay(100);                           // to your NetId, eg - MAGICK.RLY. 
  92.  
  93. receive('Z', "");                     // Receive Your PCBRelay Messages
  94.                                       // from the regional HUB        
  95.  if (waitfor("carrier", 180))
  96.    {
  97.       hangup();
  98.    }
  99.  cputs_tr ("ATM0H1^M");
  100.  exittelix(0, 1);
  101.  
  102. }
  103.